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: ;9 7 
\9h 

A 0U 
/. J 

A. 3 

i o 3 
/, o 6 
/,(; 1 

- <)9 

4 1 ' ■ 

4 I 1 
••:. 1 J? 

* 13 
/ '[ s 

f, i *-\ 

i' 1 I 

:, } H 

/.. I J 



i;F4 



and 
S 

pSC 
c 

p.sr 

1 n 
<? wn 

FOP 

mSc 

L" 

no 

srx 

L n 

s 

SPT 

f) 
A 



Ah?p fOtl 

r,S 



! 

L n 

3 

PSr 
mpX 

SI. * 
pSI 



L n 



p s j 

in 

s 
mSc 

I." 

c 

P-SC 

sto 



■vtnn 



>;<■ 






3 H7EC0-V 

3 HI?0 0*"V 

l" El- 71,/ 4 

- hiboo-v 

L FF7l,7- 

? t 

3 Hl-FDF-V' 
3 h^OCO-v' 

L E"H7l,7 

? C 

3 H(('?0-V 

? 

? TtMP 
L SOFST 

It 

3 D( 03-V 
3 Hh0 0i-v 

L? *-* 

*-] 

r> OUT-V 

-. PP/\R-" 
I H71,/ 

1 "I 

i t, 
3 OUT-V 

3 nc^^o-v 
] t 



3 OUT-V 

i i 

1 - J 

3 Coma--/ 



3 S6MI-V 
L F.I<71,7 

L OFC^T 
3 FlT-V 
L DKCNT 
L CKI 

3 \)<n) 7 l~v 
F H R 

3 f)-)0 7?-V 

FRP 



MASK 
SEE 
BR AM 

see 

BRAN 

CHEC 

GE"! 

TEST 

FUn 

RRa.m 

I NOT 

BE 1 

ADD 

con;p 

SAV'F 
F I Nn 

GYmp 



OUT ALI H UT 1ST THAR 

IF GRFftTE H THAN *K* 

CH IF MO 

IF LESS T<-AN *0« 

CH IF MO. 

< LEGAL v'-RJABU 

SYmBOL TaoLF 10 W r 
IF ID >'«OH0 CONTAINS 
FOR VARIABLE" I'Tf-GER 

CH IF MO 

GATE DEFINED 

SymhOj TAhLE 10 wr.Rr, 

IM UEFTNEU VAPI Bl F 

JTE S.T. POIMTE-- 
SYMBOL T A BUF Ar.DC', 
OiFF ^FT. STARr nF 

01 lABLF AMD CUo | OC 



DIVIDE BY 3 AND 

MAKF PI. TV To bYMROL TaRLE 

OUTPUT VARTARL.E 

GET STRING AOL»R 0/P 

ADO SYMBOL TAULF ENrRy 

To n/p STPjkiq 

RIGHT PAREMTHtSjS 
?ET ME^T Wn OF STRI 
f-aRf 



BRANCH IF Mn 

MovF kg Inter back 

T ALL (jW FOR LMCP. 
0U1PJT ZERO 



G 
ThF-'I^ 



Y 
.Y 



Jut 



FIFTH WD OF FILE RL"C* 
COmpjte REcnRi'S/SFC r Of> 
MO PEC/SECTnR = ??-Q 
DIV'TDEU BY 
NUMPfr WDS/RFCORn 
OUTPJT REC3PD-VSFCT-R 

MOVF POINT PR 
COMMA 



BRA>'CH IF Yrs 
SE M I -COLON 



BR 
UP 
T N 

30 

SA 

BR 
Pli 

sy: 

RU" 
OLH 
SO 



AN 

DA 

TF 



'/F 
T 
T 
NT 



CH IF Yp-S 

TF FILE CUiJMT 

RPhaSf FILE WO. C°U fl T 

rfps this file nc-sr 



3 PROCESS MFi 
EPPOR 71 

AX ERROR UEFTNE 
JT OUT pRKOR 

ERROR 7? 

IC^TE OFFl^F FI 

JT OUT FRROR 



FfLF 

E NO. 



SETTE 



4 2 

421 

fa?/ 3 
4^3 

*•,?,.<+ 
4 25 
4 2 ft 
4 27 

<+. 2 H 

<t.2tj 

4 3;? 

43 l 

4 32 

433 
4 34 

>3b 

4 -:tb 

4 3 7 

>3s 

'>3 H 

4 *+ U 
4 4 1 
<+42 
a. 4 3 
4 '+ 4 
a 4 b 
*4n 
u47 
*4H 
a 4 9 

a 5^ 
a- S! 
&b2 

•>53 

.-. 54 
4 5b 
'(.So 
/. S ( 
■!\ SO 
•„S'^ 
4 S ; 
.♦ol 
4 62 
*e»3 
a 64 
■ t. o b 

**r 

■:* S H 
f *nR 

.'♦YO 
4 7 I 
i/2 
4 7 3 

4 7o 
,.. 7 n 

4 7 ? 

V 1 ■■ 



w 
7 

Hf-FKD 

hf-Bn3 

HF 80? 
HUFOF" 
H A B 
ri B 1 
H H () o 
H7F0 

hSfoo 

HSBOH 
H4Q0 

H 1 ? 
-10 2') 
H ! M> ) 4 

Huooi 

i ) j ■"! 3 
UOCLJQ 
I 1 

O00 71 
00072 

■ ) u 3 2 

KCT 

Tfc'.M° 

OH I 9 
FILET 

kc:mt 

OKIlF 
CEXIT 

ariK 
Emm 

SEMI 
LHAR 

Co*>A 

U 

tfDl 
*IL>2 
■a 

OUT 



coil 

DC 
nc 
or 

or 

oC 
OC 
nr 
or 
nc 

or 
>>c 

nr 
or 

or 

or 

nr 
or 
;,r 

nr 

■ir 

or 
nr 

nr 
r ^r 
:)C 
or 
r >r 

or 

or 

nr 
nr 

or 
or 
or 

oc 

Mr 

nr 

or 



10S\I? 



< >+ 12ft 

/f-FFO 
/FH03 

/FS0?. 

/UFDF 
/A0 8 
/SO 01 

/saoo 

/ 7 E 
/ft 3.1 8 
/5F0() 
/bBOO 

/'♦COO 
/ 1 8 
/]290 

/•./•0 2 
/0 04 

/ ) 1 

3 

9 

10 

71 

72 

320 

■>*-# 

ooOT 

/F00O 

/F00? 
/EC 00 
/i000 
/IE 

/oo 
/ 1 -) 

/23 

/C'^on 


it- — <v 



CONSTANTS 

RLTV AODR FAC T 0R FO" 

MASK FOR STRING ID 
MASK FOR STRING T.0 
MASK FOH STRING 10 
3YM«r)L. TABLP' ^ASK 
ERPH3 J i.) WORD 
COM FOR COMP ^YM TBi 



rON 



>[) 
'0 



T 
0»Q 



COO 05ED FOR BI.AN* 

MASK FO* IsjT, WO, T^Sl 

CAUL FAIT CHNbTfiMT 

CALL EXIT CONSTANT 

CALL L I fl K c nNjbT fi NT 

SYO TR4 ID. FOR TNTrQc R 

TEST FOR INTEGER VARIABLE 

TEST FOR TMTEOER VA^UBLE 

SYMBOL TA3LF MASK 

OSE n TO I NCR i>TM"<T -tO«M 

USEFJi. CONSTANT 

JSEF'Ji. CONSTANT 

constant tfst numeric 

constant used 310, ~0> vfrt 

error flag no* 71 

err^r flag no. ?? 

max.. rec.5i7f depinr file 

MO. flQ'j. IN DtFN Fli'E O/P 
TEMPORARY STORAGE A"?E*> 
TEMPORARY STORAGE AdEa, 
ORIGINAL 10 woro 
LOG OF FILE OcSCRIPtOq T3L 
MAX 3F 75 oEFiNlEo FtLfs 



■-.r 




»-«• 


STo 


■? 


U 


MOX 


i 


1 


vtnx 
-mx 


? 

L 


1 


rou 




*-l 


•■sc 


I 


JT 



■a 



DEEM F CLE In KLafi T~Si 
•/EOOO CALL EXIT 14 FLAG T^ST 
./E002 CALL LINK I J FLAG T^'ST 
./E;)U0 E"-) ID Tf="ST 

SEMI -COLON 

( 

) 

J 

TEMP STO USFO TO CO oVpRT 
v/ARTABLE COOS f ANTS (oA'-KED) 

ThF OUTPUT ROUTINE SToRF 5 ^ THF 
THE CDNTF^jS OF THt. A RE^ISTFR 
AT XR?» TNCRAMEMT AR1 AN~< XR2, 
AND IMCRflMFNTS THE NORM ->F THE 
STATEMENT. 

3SI ENTRY point 
SAVr ACC IM 0/P STRrNr, 
INCREMENT T/P STRING rTP 
INCREMENT 0/P STPiN- .-T^ 
INC p E^ENT STMNT mORm mY 1 

RETURN 

THE COLLFCT CONSTANT ROUtImE 
CALlS gather C0MST 4 NT RO-TtN^" 

i:\iO THE CONVERTS T^E CON^T^NT 
TO BINARY. THE ROUlINF G ^E< TO 
ERROR NlJm^fR 7l TF CONST'-NT IS 



SEtTf 



4H0 

48? 
4 8 3 

■iH4 

4 b 

, t H/ 

4 8 8 

• H 4 

49 
4 9 i 
49?. 
^9 3 

+ 9 ^ 
4 9S 
'( 9 h 

* 9 7 

4 9 3 

4 99 

5 >] 1 

5 2 

^ u 3 

'■-■•ij ("1 **> 

3 U 9 
H I) H 

50 7 
50 H 

..» U :J 

'- 1 1 

SI? 
- 1 3 

-I 4 
S 1 S 



-19 

S20 

->? 3 
S?- 5 
-, 2 i 
S24 
S?3 

S 2 h 

S2h 
S /- < 

3 ■ 
S J ! 

K J ? 

S3 3 

'■-, 3 9 
;, ,i -i 
S3 7 
S i - J , 

c;3'..» 



COLL 



»-«• 



Gat Hi 



LKR 



^T 



: -1 l a 
S T n 

COLLI l^ 

SSO 

^r 

SI. A 
S°A 

l° 

1 

slt 
■>sr 
"i. r 

'•;to 

3Sc 
' no 

S, T 
s Tn 

COL I.? L* 

nsc 
hsc 

'A 

■I* 
* 

'A 

GATH 



nC 

L n 
STn 

SLA 
STn 

St.* 

nn x. 
i n 
oSc 



or 
L n x 

L n X 

STn 
i n 



GATri-W 
16 

TErtP-J 

WDl-v 
2 

*+3»r 

COLL? 

E*71»- 

1 

12 

TtMPA-V 

DOOOq-V 
E:<7l,~Z 

TtMP-V 

0Q0ln-v 

1 

Eh .71,7 

temPa-v 

TEMP-y 
Ek71»+2 

9 91 -V 

6 

Wjji-V 

COLLI 
TF.MP-V 
E ^ 7 1 , ♦ 

COLL 



INVALID* ZFPO OR O'ER 32767. 
3SI E R 1 TRY ool^T 
BRANCH TO SET 2 wD <~0'iST 



ZFR^ TEMP STO 
SET 1ST OF ? 



CONSTANT 



TEST FOR PISTOLE NU -EpIC 
ZEnn CON, SYNTAX rPeOP 
3RAMCH TO RETURN 
TfST fqR ZrRo» HvVa* In CON 

shift off 5me bit 

PUT 3ITS 3-q iNTr. BtT«!9-30 

SAVE TEMPORARILY 
DFTFl^lNE IF ! «0. RE r Wf-F w 
'") A* 1 3 9. FR^0« IF N^T 



L 

T 



II 
I? 

3 
-3 



MULT pREv, COi 



RY 1 



TEST FOR GVFRt-LO*' 
MO. 3T 327*7t ERPOR 
PUT apcV CON I*' ArC 
AD') CURRENT U'U 
SAVT i'V Prfv. CON' 
ERR^R IF NT. OT 327*7 
3ET MEXT ^ Bits wOl-WD? 



30 PROCESS KfFXT a 



HtT" 



«■ - -» 

r> 

«D1-V 

16 

WOP-V 

1 

GATH1,- 

1 

1 

1 

ER71W 

G^TH 



30 SET UP c-nR ERROR 

3r TT LE n TO EPPOR 

Rp; TU Rki 
ThE 6ATHFR COnSTaM ROUTtNp 
t>lCK TWO «/nRQ C^'SlANT AMD 
PUT THE* IN W01 AN'-* i»^2. PniNTE 
9EMAIMS OM L A ST mo^D USE-.. ON 
ERRORS THr ROUTt^^E GOFS tq 
ERROR 7 l , 

3SI EK'TRY 

SET «ff)HD FROM I/P STRff^n 

5a»7f j.', wD] 



zero w)2. 

TEST ?M0 Wo I/P STRtN,-, 

retort if ^n ^'OT flagreh 

REMOTE FLA3. 
SAVF WORD P. 

INCPEMENT t/P STRING rOUNT 
TEST 3RD •*>-) OF STRING FOR 
VAR. SYNTAX ERR IF nrOijNO 
RETURN 

"^ HE E.RRO R RoUTjvjf ;1 E P LAC= _S ThE 
STATEMENT WITH H^ ERROR «ESS*6E 
THE ERROf NUMBER I i Iw T <E 
; >CCU^JL 4 T0R wHEm COM ImG hE^E 
»-# ENTf>V POINT 
ILSV1 GET STRING I/P In wn aQOR 
IuSV 7 SET SIRING 0/*- 10 wn aOOR 
TE.mP-v STO^E ERROR C^NST TrMp, 
OKtG-V GET 10 w|) rcn" ! I/P ssTrI^G 



SEJTF 1 



■ , '+ ■ ■ 
•,4 1 
'■■•.A-Z 

;;4 * 

H44 

- s 4t ^) 
: ,4') 

-" :, 4 ri 
•S 1- 4 

jbU 

*53 

5S4 
S b "> 
«■-, b *i 

;,h i 
,bl. 

■> f> 3 

~ *) 4 
r, 6 S 
■ b'r> 



- b ■■) 

'■• t 1 

:.:, / "? 

'W'f 5 
^ ? <* 

-.76 

■: f I 

-7H 

SHI 

;, •> 6 
-,H / 

-, 8 S 
•"•> ci 9 

"-, 4 i 

!,9h 



SK! J 



A w 

•;SC 

L n 

STn 

; n 

STO 



L n 

U* 

S D A 

«;Tn 
"iny 
■•'SC 

■M- 
■it 
ft 

•* 
>> 

FILES 0? 

qTr> 

i o 

r-iSr 
3Tn 

i n 

STO 
in 

oSr 



v ,nx 
■in* 

«;Tn 
o.SC 

•l n X 
STX 

<S T 

or 



PL) 



PL? 



eoi 

cMT 

Ouot or 

[JIFF !.|C 

•.ss 



H ] - V 

HAf)0P-V 

F 

h 4 - V 



15 

1 

1 

1 

7 f. »i p _ v 

1 " 
7 



L 

L 



GET 5T v iT MO. r : LAr, F-?0*< [D 
INCP PY EPROP ID W0'.'0. 
TEST IF STMT >N0. PRrSf-'MT 
INCP. NORM TF STMT -iAs NO. 
5AVF 



10 w/OPn J.N O/P STRING 
TEST FOR NjMRt-REO Stmt 
BRANCH IF MO 
'^lOVF NUMBER F*Q f - I/' 5 TO 
0/P STP'INq 

INC D 7 P STRING COU-iT 

SET rpkOR MO. 

PUT IM O/p SThIVG 

I NCR r/R STPI^G CTR 
SKIP OVFR RtMATMDf-R OF fHF 
STATEME^'T, 



CRIG-V 



SET 3TMNT in i/P SToImg 



7 OEC^OE. STMMT ^0R f -- 

«• + ] JNCP I/P STRING CTR Bv 

*-■» STATEMENT MORf'i 

CKl GO PROCESS ME*T STMmT 

THIS SUBROUTINE SC«NS THcr TARLE 
OF DEFIMF FILE \HJMdERS T-> FMSLJR 

r HA T The p e A R E mO duplicates 
that there °.re mot mope t h/.n 

75 OEFINEO FILES. 

^CC CO''JTAim5; » I M Fl'E NO. 

BSI ENTRY snl-'T 

SAVF fCC. 

TEST if NO, FILES LFFT 



TEHP-v 

FCMT-V 
H 01..y 

ER7?,+ 
FCNT-V 
FJLET-V 
FL1 + 1 

FL?f+- 

TE V 1P-^ 

FL3*j »-l 

FL1 

FILET'] 
TEMP-V 

FILET 
FILES 



IS 
IF 



f"OT» 



•>et l^c 



OVrpLAP FRR'-'R 
OF FILE T AR i E 



;0, 
F 



NO 



SET FK'TRY FPO 1 " TaBL^ 
IF FMT^'Y = n, «'-'D FIL" ' 

compade entry with rii 

EQUAi , DUP FILE FRR^R 

MODIFY FILE T-BlE L'^C. 

GO r'K;RA p -F fn'Ry mevT fTLE 



IN 



R 



FILE TA'-LE LOr 



? 



-1 

EOFS 

ROLRX 

03 



GET ^I^'ARY FILE NO. 

SAVE I.M FlLF fAbLF 

RETitRf.' 

RESTORE STRING POINtep>S 



READ AMD GO TO NEXT PHASE 
CALL dOwn ^maSe q 
NEXT P^ASF mU.-'BER 
0E p TME FlLF NUMprp Tft rt LF 





7s oeftmeo filf Table 
/Aouo-zBCoo f^ror stmnT m 

OVERL-* - + 320*2 PHASE-07 PATCH AQEA 



